home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
PPC1B3AA.ZIP
/
INPUTLN_.PPS
< prev
next >
Wrap
Text File
|
1996-07-29
|
1KB
|
46 lines
; Demonstration of the InputLine function (library INPUTLN.LIB)
#ppe
#libpath ..\..\lib
#use inputln
String Table(9)
Int Line
AnsiPos 1, 1
PrintLn "First Name : ...................."
PrintLn "Last Name : ...................."
PrintLn "Handle : ...................."
PrintLn "Address(1) : ...................."
PrintLn "Address(2) : ...................."
PrintLn "Address(3) : ...................."
PrintLn "Hobbies : ...................."
PrintLn "Years BBSing: ...................."
PrintLn "CPU Type : ...................."
PrintLn "Modem Type : ...................."
PrintLn
PrintLn "Keys: Up/Down/Enter/Esc"
Line = 1
:nextLine
If (Line > 10) End
If (Line < 1) Line = 1
Table(Line-1) = InputLine(15, Line, 20, Table(Line-1), Mask_Ascii(), False)
Select Case InputLineControl
Case 0, 3
Inc Line
Goto nextLine
Case 1
End
Case 2
Dec Line
Goto nextLine
End Select
End ; should be unreachable